﻿Imports System
Imports System.Configuration
Imports System.Collections

''' <summary>
''' Custom Rule Collection
''' </summary>
Public Class CustomRuleCollection
    Inherits ConfigurationElementCollection

    ''' <summary>
    ''' Initializes a new instance of the <see cref="CustomRuleCollection" /> class.
    ''' </summary>
    Public Sub New()
    End Sub

    Protected Overloads Overrides Function CreateNewElement() As ConfigurationElement
        Return New CustomRule()
    End Function

    Protected Overrides Function GetElementKey(ByVal element As ConfigurationElement) As [Object]
        Return CType(element, CustomRule).Name
    End Function

End Class